perm filename BUG.GRU[OK,TES] blob sn#118756 filedate 1974-08-31 generic text, type T, neo UTF8
NAME BLOCK
00    BUG
PROGRAM
	LOCATION 000000 000000' 
	334000 000000 	067,000,000,000,000,000	SKIPA 000000
	476000 000000 	117,100,000,000,000,000	SETOM 000000
	264000 000000 	055,000,000,000,000,000	JSR 000000
	261740 000012 	054,076,000,000,005,000	PUSH 17,000012
	261740 000000 	054,076,000,000,000,000	PUSH 17,000000
	261740 000016 	054,076,000,000,007,000	PUSH 17,000016
	541517 777776 	130,064,177,177,177,000	HRRI 12,777776(17)
PROGRAM
	LOCATION 000000 000007' 
	254000 000000 	053,000,000,000,000,000	JRST 000000
	336017 777777 	067,100,177,177,177,100	SKIPN 777777(17)
	254000 000000 	053,000,000,000,000,000	JRST 000000
	336000 000000 	067,100,000,000,000,000	SKIPN 000000
	254000 000000 	053,000,000,000,000,000	JRST 000000
PROGRAM
	LOCATION 000000 000010' 
	332017 777777 	066,100,177,177,177,100	SKIPE 777777(17)
	254000 000000 	053,000,000,000,000,000	JRST 000000
PROGRAM
	LOCATION 000000 000012' 
	332000 000000 	066,100,000,000,000,000	SKIPE 000000
	254000 000000 	053,000,000,000,000,000	JRST 000000
PROGRAM
	LOCATION 000000 000014' 
	200040 000012' 	040,002,000,000,005,000	MOVE 01,000012'
	254000 000000 	053,000,000,000,000,000	JRST 000000
	254000 000000 	053,000,000,000,000,000	JRST 000000
	201040 000010' 	040,042,000,000,004,000	MOVEI 01,000010'
	202040 000000 	040,102,000,000,000,000	MOVEM 01,000000
	205040 000000 	041,042,000,000,000,000	MOVSI 01,000000
	254000 000001' 	053,000,000,000,000,100	JRST 000001'
	274740 000000 	057,036,000,000,000,000	SUB 17,000000
	254037 000002 	053,001,170,000,001,000	JRST @000002(17)
	000000 000000 	000,000,000,000,000,000	000 000000
	260740 000000 	054,036,000,000,000,000	PUSHJ 17,000000
	201540 000000 	040,066,000,000,000,000	MOVEI 13,000000
	260740 000000 	054,036,000,000,000,000	PUSHJ 17,000000
	200512 000000 	040,024,120,000,000,000	MOVE 12,000000(12)
	274740 000000 	057,036,000,000,000,000	SUB 17,000000
	263740 000000 	054,176,000,000,000,000	POPJ 17,000000
	000000 000000 	000,000,000,000,000,000	000 000000
LINK BLOCK
	000000 000006 
	000000 000034' 
PROGRAM
	LOCATION 000000 000035' 
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000003 	000,000,000,000,001,100	000 000003
	440700 000000 	110,034,000,000,000,000	ANDCB 16,000000
	020000 000000 	004,000,000,000,000,000	020 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000002 	000,000,000,000,001,000	000 000002
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000035' 000000 	000,001,150,000,000,000	000 @000000(15) (R)
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	740040 000000 	170,002,000,000,000,000	BLKI 01,000000
	000000 000000 	000,000,000,000,000,000	000 000000
	412530 700000 	102,125,107,000,000,000	ANDCAM 12,@700000(10)
	000000 000000 	000,000,000,000,000,000	000 000000
	777777 777777 	177,177,177,177,177,100	CONSO 17,@777777(17)
PROGRAM
	LOCATION 000000 000056' 
	000003 000003 	000,000,030,000,001,100	000 000003(03)
	000002 000002 	000,000,020,000,001,000	000 000002(02)
SYMBOLS
	14  ERROR	000000 000003 
	10 ERROR.	000000 000010' 
	10   CHAR	000000 000025' 
	14    BUG	000000 000001 
	10   BUG.	000000 000026' 
	60 .ERRP.	000000 000020' 
	04  ERROR	000000 000010' 
	60  BEXIT	000000 000030' 
	60 .UINIT	000000 000026' 
INTERNAL REQUEST
	000011' 000014' 
	000013' 000017' 
	000016' 000023' 
	000022' 000023' 
	000014' 000025' 
	000007' 000026' 
	000004' 000045' 
	000043' 000051' 
	000027' 000051' 
	000037' 000053' 
	000032' 000056' 
	000023' 000057' 
LIBRARY REQUEST
	SYS   :LIBSA7.REL
PROGRAM
	LOCATION 000000 000060' 
	000000 000000 	000,000,000,000,000,000	000 000000
	000011 000010 	000,000,110,000,004,000	000 000010(11)
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 007777 	000,000,000,017,177,100	000 007777
	000000 000000' 	000,000,000,000,000,000	000 000000'
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000000 	000,000,000,000,000,000	000 000000
	000000 000054' 	000,000,000,000,026,000	000 000054'
	000000 000055' 	000,000,000,000,026,100	000 000055'
	000000 000000 	000,000,000,000,000,000	000 000000
LINK BLOCK
	000000 000002 
	000000 000060' 
STARTING ADDRESS
	000000 000000' 
SYMBOLS
	60 SAILOR	000000 000002' 
	60  RPGSW	000000 000001' 
SYMBOLS
	10     S.	000000 000000' 
	10      P	000000 000017 
	10     SP	000000 000016 
	10  ARERR	007000 000000 
	10  FLOAT	002000 000000 
	10    FIX	003000 000000 
END BLOCK
	000000 000076'